home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / ls briefs / ls briefs.0829 / ls briefs.a7ae (.txt)
Encoding:
Commodore BASIC  |  1991-01-01  |  46.9 KB  |  26 lines
  1. 10 dima$(5),b$(5):poke53281,0:poke53280,0:poke55,0:poke56,160:clr
  2. 20 print"[147] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  3. 30 fori=1to3:print"[159]                                       ":next
  4. 40 print" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  5. 50 print"[159]"tab(5)"[204][160][207][160][193] [196][160][211][160][212] [193] [210][160][160] [194] [210][160][201][160][197][160][198] [211]"
  6. 60 fori=1to5:reada$(i):next:fori=1to5:readb$(i):next
  7. 70 poke214,21:poke211,0:sys58732
  8. 71 print"[158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  9. 72 print" [221]                                    [221]"
  10. 73 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 80 printtab(4)"[145][145][159][213]se [195][210][211][210][159]/[210][197][212][213][210][206][159] or 1[159]-5[159] to select"
  12. 90 sys49152,69,8,8,68,1,3,a$(1),a$(2),a$(3),a$(4),a$(5):geta$:i=val(a$)
  13. 100 data " 1. [198]eedback [205]achine   "
  14. 110 data " 2. [212]ext [208]rinter [160]     "
  15. 120 data " 3. [204][207][193][196][211][212][193][210] [198]orms     "
  16. 130 data " 4. [204]ibrary [213]pdate     "
  17. 140 data " 5. [210]eturn [212]o [204][207][193][196][211][212][193][210] "
  18. 150 data machine,text printer,loadstar forms,appender,hello connect
  19. 60000 a$=b$(i):b$="[204][207][193][196]ing "+a$:open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  20. 60001 ifi=5thenb$="[210]eturning [212]o [204][207][193][196][211][212][193][210]..."
  21. 60010 if er<>63 then print"[147]":end
  22. 60011 q$=chr$(34):print"[147]":poke214,20:print:print
  23. 60012 printspc(20-(len(b$)/2))""b$
  24. 60020 poke646,peek(53281):print"load"q$a$q$",8"
  25. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  26.